home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 0292.ZIP / INV.ARC / INVPRINT.PRG < prev    next >
Text File  |  1985-12-21  |  1KB  |  70 lines
  1. *invprint.prg
  2.  
  3. SET TALK OFF
  4. STORE 9 TO LINECNT
  5. STORE -8 TO RECORD
  6. STORE 1 TO MPAGE
  7. STORE DATE() TO MDATE
  8. CLEAR
  9. ? '                 Ensure top of paper is aligned with printhead'
  10. ?
  11. ?
  12. ?
  13. ?
  14. WAIT
  15. ? 
  16. SET PRINT ON
  17. SET MARGIN TO 2
  18. ? CHR(27)+CHR(99)+CHR(49)
  19. ? CHR(14)+CHR(27)+CHR(33)
  20.  
  21. ? "       HOUSEHOLD GOODS"
  22. ? CHR(15)
  23. ?
  24. ?
  25. ?
  26. ?
  27. ? 'Page # '+SUBSTR(STR(MPAGE),9,3)+"                              ì
  28.                        As of "+DTOC(MDATE)
  29. ?
  30. ? CHR(27)+CHR(34)+CHR(27)+CHR(109)+CHR(48)
  31. ?
  32. ?
  33. ?
  34. GO TOP
  35. ? 'ITEM                                                   AQUIRED       ì
  36.    COST'
  37. ?
  38. ?
  39. DO WHILE .NOT. EOF()
  40.     ? ITEM, AQUIRED, COST 
  41.     ?
  42.     SKIP
  43.     RECORD=RECORD+1
  44.     LINECNT = LINECNT+2
  45.     IF LINECNT > 53
  46.     MPAGE=MPAGE+1
  47.     LINECNT = 0 
  48.        IF MPAGE > 4
  49.        LINECNT = -1
  50.        ENDIF
  51.     ? CHR(10)+CHR(10)+CHR(10)+CHR(10)+CHR(10)+CHR(10)
  52.     ? 'Page # '+SUBSTR(STR(MPAGE),9,3)
  53.     ?
  54.     ? 'ITEM                                                  AQUIRED  ì
  55.          COST'
  56.     ?
  57.     LOOP
  58.     ELSE
  59. ENDDO
  60. ? 'Records Reported'+STR(RECORD)
  61. SUM COST TO MCOST
  62. ? '                                                            ì
  63. TOTAL'+STR(MCOST)
  64. ? CHR(12)
  65. ?
  66. SET PRINT OFF
  67. RETURN
  68.  
  69.  
  70.